home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / himetr1r / frmadd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-14  |  9.0 KB  |  288 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAdd 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Add a new code item"
  5.    ClientHeight    =   3675
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6765
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmAdd.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3675
  23.    ScaleWidth      =   6765
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   3  'Windows Default
  26.    Begin VB.Frame fraIDE 
  27.       Caption         =   "&Extensibility:"
  28.       Height          =   3015
  29.       Left            =   4680
  30.       TabIndex        =   14
  31.       Top             =   0
  32.       Width           =   2055
  33.       Begin VB.CheckBox chkImport 
  34.          Caption         =   "Import code from IDE"
  35.          Height          =   375
  36.          Left            =   120
  37.          TabIndex        =   17
  38.          Top             =   480
  39.          Value           =   1  'Checked
  40.          Width           =   1815
  41.       End
  42.       Begin VB.OptionButton optImport 
  43.          Caption         =   "Import code from current code window"
  44.          Height          =   495
  45.          Index           =   1
  46.          Left            =   120
  47.          TabIndex        =   16
  48.          Top             =   1920
  49.          Value           =   -1  'True
  50.          Width           =   1815
  51.       End
  52.       Begin VB.OptionButton optImport 
  53.          Caption         =   "Import code from current code window selection"
  54.          Height          =   615
  55.          Index           =   0
  56.          Left            =   120
  57.          TabIndex        =   15
  58.          Top             =   1080
  59.          Width           =   1815
  60.       End
  61.    End
  62.    Begin VB.CommandButton cmdApply 
  63.       Caption         =   "&Apply"
  64.       Height          =   375
  65.       Left            =   4200
  66.       TabIndex        =   11
  67.       Top             =   3240
  68.       Visible         =   0   'False
  69.       Width           =   1215
  70.    End
  71.    Begin VB.CommandButton cmdCancel 
  72.       Caption         =   "&Cancel"
  73.       Height          =   375
  74.       Left            =   5520
  75.       TabIndex        =   10
  76.       Top             =   3240
  77.       Width           =   1215
  78.    End
  79.    Begin VB.CommandButton cmdAdd 
  80.       Caption         =   "&Add Item"
  81.       Default         =   -1  'True
  82.       Height          =   375
  83.       Left            =   4200
  84.       TabIndex        =   9
  85.       Top             =   3240
  86.       Width           =   1215
  87.    End
  88.    Begin VB.Frame fraOther 
  89.       Caption         =   "&Other Options:"
  90.       Height          =   1335
  91.       Left            =   120
  92.       TabIndex        =   4
  93.       Top             =   1680
  94.       Width           =   4455
  95.       Begin VB.OptionButton optLevel 
  96.          Caption         =   "Below Item"
  97.          Height          =   255
  98.          Index           =   1
  99.          Left            =   2880
  100.          TabIndex        =   13
  101.          Top             =   720
  102.          Value           =   -1  'True
  103.          Width           =   1455
  104.       End
  105.       Begin VB.OptionButton optLevel 
  106.          Caption         =   "Same Level"
  107.          Height          =   255
  108.          Index           =   0
  109.          Left            =   2880
  110.          TabIndex        =   12
  111.          Top             =   360
  112.          Width           =   1455
  113.       End
  114.       Begin VB.ComboBox cboVersion 
  115.          Height          =   315
  116.          Left            =   1080
  117.          TabIndex        =   8
  118.          Text            =   "Version"
  119.          Top             =   720
  120.          Width           =   1575
  121.       End
  122.       Begin VB.ComboBox cboLevel 
  123.          Height          =   315
  124.          Left            =   1080
  125.          TabIndex        =   7
  126.          Text            =   "Select a level"
  127.          Top             =   360
  128.          Width           =   1575
  129.       End
  130.       Begin VB.Label lblVersion 
  131.          AutoSize        =   -1  'True
  132.          Caption         =   "&Version:"
  133.          Height          =   195
  134.          Left            =   120
  135.          TabIndex        =   6
  136.          Top             =   720
  137.          Width           =   585
  138.       End
  139.       Begin VB.Label lblLevel 
  140.          AutoSize        =   -1  'True
  141.          Caption         =   "&Level:"
  142.          Height          =   195
  143.          Left            =   120
  144.          TabIndex        =   5
  145.          Top             =   360
  146.          Width           =   435
  147.       End
  148.    End
  149.    Begin VB.TextBox txtNotes 
  150.       Height          =   1095
  151.       Left            =   1200
  152.       MultiLine       =   -1  'True
  153.       ScrollBars      =   3  'Both
  154.       TabIndex        =   3
  155.       Top             =   480
  156.       Width           =   3375
  157.    End
  158.    Begin VB.TextBox txtDescription 
  159.       Height          =   285
  160.       Left            =   1200
  161.       TabIndex        =   2
  162.       Top             =   120
  163.       Width           =   3375
  164.    End
  165.    Begin VB.Label lblNotes 
  166.       AutoSize        =   -1  'True
  167.       Caption         =   "&Notes:"
  168.       Height          =   195
  169.       Left            =   240
  170.       TabIndex        =   1
  171.       Top             =   480
  172.       Width           =   480
  173.    End
  174.    Begin VB.Label lblDesc 
  175.       AutoSize        =   -1  'True
  176.       Caption         =   "&Description:"
  177.       Height          =   195
  178.       Left            =   240
  179.       TabIndex        =   0
  180.       Top             =   120
  181.       Width           =   855
  182.    End
  183. Attribute VB_Name = "frmAdd"
  184. Attribute VB_GlobalNameSpace = False
  185. Attribute VB_Creatable = False
  186. Attribute VB_PredeclaredId = True
  187. Attribute VB_Exposed = False
  188. '----------------------------------------
  189. '- Name: Sam Huggill
  190. '- Email: sam@vbsquare.com
  191. '- Web: http://www.vbsquare.com/
  192. '- Company: Lighthouse Internet Solutions
  193. '- Date/Time: 14/08/99 11:32:09
  194. '----------------------------------------
  195. '- Notes:   Add dialog for adding an item
  196. '----------------------------------------
  197. Option Explicit
  198. Private Sub chkImport_Click()
  199.     If chkImport.Value Then
  200.         optImport(0).Enabled = True
  201.         optImport(1).Enabled = True
  202.     Else
  203.         optImport(0).Enabled = False
  204.         optImport(1).Enabled = False
  205.     End If
  206. End Sub
  207. Private Sub cmdAdd_Click()
  208.     On Error Resume Next
  209.     If fraIDE.Enabled = True And chkImport.Value = vbChecked Then
  210.         If optImport(0).Value Then
  211.         
  212.             modData.Code = modMain.GetSelectedText(frmMain.VBInstance)
  213.             
  214.         Else
  215.             modData.Code = frmMain.VBInstance.ActiveCodePane.CodeModule.Lines(1, frmMain.VBInstance.ActiveCodePane.CodeModule.CountOfLines)
  216.         
  217.         End If
  218.     End If
  219.         
  220.     '// Set the key and add the code
  221.     If optLevel(0).Value Then '// Add to same level
  222.         modData.Key = frmMain.tvwItems.SelectedItem.Parent.Key
  223.     Else
  224.         '// Add beneath item
  225.         modData.Key = frmMain.tvwItems.SelectedItem.Key
  226.     End If
  227.     If modData.AddCode(frmMain.tvwItems, txtDescription, txtNotes, cboVersion.Text, cboLevel.Text, optLevel(0).Value) Then
  228.         Unload Me
  229.     End If
  230. End Sub
  231. Private Sub cmdApply_Click()
  232.     '// Check for an empty description
  233.     If txtDescription = "" Then
  234.         MsgBox "Please enter a description."
  235.         Exit Sub
  236.     End If
  237.     '// Update the Key and DB. Select the item
  238.     modData.Key = frmMain.tvwItems.SelectedItem.Key
  239.     modData.Notes = txtNotes.Text
  240.     g_strVersion = Right$(cboVersion.Text, Len(cboVersion.Text) - 2)
  241.     g_strLevel = cboLevel.Text
  242.     modData.UpdateDB frmMain.tvwItems
  243.     modData.SelectItem frmMain.tvwItems.SelectedItem.Key, frmMain.ctlData1
  244.     Unload Me
  245. End Sub
  246. Private Sub cmdCancel_Click()
  247.     Unload Me
  248. End Sub
  249. Private Sub Form_Load()
  250.     On Error GoTo vbErrHand
  251.     CentreForm Me
  252.     '// Add the levels and versions
  253.     With cboLevel
  254.         .AddItem "Beginner"
  255.         .AddItem "Intermediate"
  256.         .AddItem "Advanced"
  257.     End With
  258.     With cboVersion
  259.         .AddItem "VB4 16"
  260.         .AddItem "VB4 32"
  261.         .AddItem "VB5"
  262.         .AddItem "VB6"
  263.     End With
  264.     optLevel(1).Value = True
  265.     If Not (frmMain.VBInstance Is Nothing) Then
  266.         fraIDE.Enabled = True
  267.         chkImport.Enabled = True
  268.         optImport(0).Enabled = True
  269.         optImport(1).Enabled = True
  270.         txtDescription = frmMain.VBInstance.ActiveCodePane.CodeModule.Parent.Name
  271.     Else
  272.         fraIDE.Enabled = False
  273.         chkImport.Enabled = False
  274.         optImport(0).Enabled = False
  275.         optImport(1).Enabled = False
  276.     End If
  277.     Exit Sub
  278. vbErrHand:
  279. End Sub
  280. Private Sub Form_Unload(Cancel As Integer)
  281.     '// Resets the form to add mode
  282.     cmdApply.Visible = False
  283.     Me.Caption = "Add a new code item"
  284.     cmdAdd.Default = True
  285.     frmAdd.optLevel(0).Enabled = True
  286.     frmAdd.optLevel(1).Enabled = True
  287. End Sub
  288.